﻿Imports TwitterVB2
Public Class Form1

    Private Sub btnButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnButton1.Click
        If (Not txtPassword.Text = "") And (Not txtUsername.Text = "") Then
            Tweet(txtUsername.Text, txtPassword.Text, "khsdjfskf")
        End If
    End Sub
    Private Sub Tweet(ByVal username As String, ByVal password As String, ByVal status As String)
        Dim tw As New TwitterAPI
        tw.AuthenticateAs(username, password)
        tw.Update("Workig on a twitter client")
    End Sub
End Class
